home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Examples / support / badDarkCycleWheel.eve < prev    next >
Encoding:
Text File  |  1995-03-22  |  7.9 KB  |  223 lines

  1. # This eve model file generated by Michael B. Johnson's WW3DKit software running under NeXTSTEP.
  2. # Contact him at wave@media.mit.edu or (617) 666-4119 for more information.
  3. #
  4. # Writing out all the current values of the global variables:
  5. set fork(xScale) {0.565574};
  6. set fork(thetaMax) {180.000000};
  7. set fork(yScale) {3.000000};
  8. set fork(minorRadius) {0.333333};
  9. set fork(phiMin) {0.0};
  10. set fork(majorRadius) {2.0};
  11. set fork(zScale) {2.000000};
  12. set fork(color) {0.924665 0.901624 1.000000};
  13. set fork(phiMax) {360.0};
  14. set tire(yScale) {1.060000};
  15. set tire(thetaMax) {360.000000};
  16. set tire(spikeCount) {12};
  17. set tire(minorRadius) {2.000000};
  18. set tire(phiMin) {0.0};
  19. set tire(xTranslate) {0};
  20. set tire(xRotate) {0};
  21. set tire(phiMax) {360.0};
  22. set tire(yRotate) {0};
  23. set tire(xScale) {1.000000};
  24. set tire(zTranslate) {0};
  25. set tire(zRotate) {0};
  26. set tire(majorRadius) {2.0};
  27. set tire(zScale) {0.344262};
  28. set tire(color) {0.099994 0.099994 0.099994};
  29. set tire(yTranslate) {0};
  30. set errorCode {NONE};
  31. set errorInfo {
  32.     while executing
  33. "render {/LocalDeveloper/WWPalettes/Examples/WavesWorld/support/darkCycleWheel.eve} {}"};
  34. set gasket(thetaMax) {360.0};
  35. set gasket(minorRadius) {0.200000};
  36. set gasket(phiMin) {0.0};
  37. set gasket(majorRadius) {0.400000};
  38. set gasket(phiMax) {180.0};
  39. set gasket(color) {0.000000 0.000000 0.000000};
  40. set gasket(xRotate) {90.000000};
  41. set gasket(yTranslate) {8.0};
  42. set i {12};
  43. set surface(rubber) {RCRubber};
  44. set surface(metal) {ECDentedMetalEffect};
  45. set topOfFork(radius) {0.400000};
  46. set topOfFork(thetaMax) {360.0};
  47. set topOfFork(zMax) {1.0};
  48. set topOfFork(zTranslate) {0};
  49. set topOfFork(zRotate) {0};
  50. set topOfFork(zMin) {-3.0};
  51. set topOfFork(xTranslate) {0};
  52. set topOfFork(xRotate) {90.000000};
  53. set topOfFork(yTranslate) {7.000000};
  54. set hubcap(radius) {3.400000};
  55. set hubcap(yScale) {1};
  56. set hubcap(thetaMax) {360.0};
  57. set hubcap(zMin) {-5.333333};
  58. set hubcap(xTranslate) {0};
  59. set hubcap(xRotate) {0};
  60. set hubcap(yRotate) {0};
  61. set hubcap(zMax) {9.000000};
  62. set hubcap(xScale) {1};
  63. set hubcap(zTranslate) {0};
  64. set hubcap(zRotate) {0};
  65. set hubcap(zScale) {1};
  66. set hubcap(yTranslate) {0};
  67. set hubcap(color) {0.924665 0.901624 1.000000};
  68. set piston(bounce) {0.0};
  69. set piston(radius) {0.600000};
  70. set piston(thetaMax) {360.0};
  71. set piston(zMax) {3.0};
  72. set piston(zTranslate) {0};
  73. set piston(zRotate) {0};
  74. set piston(zMin) {0.0};
  75. set piston(xTranslate) {0};
  76. set piston(color) {0.924665 0.901624 1.000000};
  77. set piston(xRotate) {90.000000};
  78. set piston(yTranslate) {11.000000};
  79. set modelPath {/LocalDeveloper/WWPalettes/Examples/WavesWorld/support/lightCycleWheel.wwModel};
  80. # end of globals
  81. # Writing out all the current definitions of all the non built-in procs:
  82. # end of procs
  83. startShape {Support} {0.153113 -0.705883 0.691582 0.000000 \
  84.                     0.245068 0.705095 0.665419 0.000000 \
  85.                     -0.957339 0.067601 0.280948 0.000000 \
  86.                     0.500000 -0.270000 5.450001 1.000000};
  87.  
  88.     startShape {Piston} ;
  89.         Surface ECDentedMetalEffect ;
  90.         EveCmd {Color $piston(color)};
  91.         EveCmd {Translate 0 $piston(bounce) 0};
  92.         TransformBegin;
  93.         EveCmd {Translate $piston(xTranslate) $piston(yTranslate) $piston(zTranslate)};
  94.         EveCmd {Rotate $piston(xRotate) 1 0 0 };
  95.         EveCmd {Cylinder $piston(radius) $piston(zMin) $piston(zMax) $piston(thetaMax)};
  96.         TransformEnd;
  97.         startShape {Gasket} ;
  98.             Surface RCRubber ;
  99.             EveCmd {Color $gasket(color)};
  100.             EveCmd {set gasket(yTranslate) [expr {$piston(yTranslate) - $piston(zMax)}]};
  101.             EveCmd {Translate 0 $gasket(yTranslate) 0};
  102.             Rotate 90.000000 1.000000 0.000000 0.000000;
  103.             EveCmd {Torus $gasket(majorRadius) $gasket(minorRadius) $gasket(phiMin) $gasket(phiMax) $gasket(thetaMax)};
  104.  
  105.         endShape
  106.  
  107.     endShape
  108.     startShape {aFork} ;
  109.         Surface ECDentedMetalEffect ;
  110.         EveCmd {Color $fork(color)};
  111.         TransformBegin;
  112.         EveCmd {Translate $topOfFork(xTranslate) $topOfFork(yTranslate) $topOfFork(zTranslate)};
  113.         EveCmd {Rotate $topOfFork(xRotate) 1 0 0 };
  114.         EveCmd {Cylinder $topOfFork(radius) $topOfFork(zMin) $topOfFork(zMax) $topOfFork(thetaMax)};
  115.         TransformEnd;
  116.         TransformBegin;
  117.         EveCmd {Scale $fork(xScale) $fork(yScale) $fork(zScale)};
  118.         EveCmd {Torus $fork(majorRadius) $fork(minorRadius) $fork(phiMin) $fork(phiMax) $fork(thetaMax)};
  119.         TransformEnd;
  120.         startShape {Wheel} ;
  121.             Rotate 90.000000 0.000000 1.000000 0.000000;
  122.             startShape {Tire} ;
  123.                 Surface RCRubber ;
  124.                 EveCmd {Color $tire(color)};
  125.                 EveCmd {Scale $tire(xScale) $tire(yScale) $tire(zScale)};
  126.                 EveCmd {Translate $tire(xTranslate) $tire(yTranslate) $tire(zTranslate)};
  127.                 EveCmd {Rotate $tire(xRotate) 1 0 0 };
  128.                 EveCmd {Rotate $tire(yRotate) 0 1 0 };
  129.                 EveCmd {Rotate $tire(zRotate) 0 0 1 };
  130.                 EveCmd {Torus $tire(majorRadius) $tire(minorRadius) $tire(phiMin) $tire(phiMax) $tire(thetaMax)};
  131.                 startShape {spike11} ;
  132.                     EveCmd {Translate 0 $tire(majorRadius) 0};
  133.                     Rotate 330.000000 0.000000 0.000000 1.000000;
  134.                     EveCmd {Cone [expr {$tire(majorRadius) * .1}] [expr {$tire(majorRadius) * .1}] 360};
  135.  
  136.                 endShape
  137.                 startShape {spike9} ;
  138.                     EveCmd {Translate 0 $tire(majorRadius) 0};
  139.                     Rotate 270.000000 0.000000 0.000000 1.000000;
  140.                     EveCmd {Cone [expr {$tire(majorRadius) * .1}] [expr {$tire(majorRadius) * .1}] 360};
  141.  
  142.                 endShape
  143.                 startShape {spike7} ;
  144.                     EveCmd {Translate 0 $tire(majorRadius) 0};
  145.                     Rotate 210.000000 0.000000 0.000000 1.000000;
  146.                     EveCmd {Cone [expr {$tire(majorRadius) * .1}] [expr {$tire(majorRadius) * .1}] 360};
  147.  
  148.                 endShape
  149.                 startShape {spike5} ;
  150.                     EveCmd {Translate 0 $tire(majorRadius) 0};
  151.                     Rotate 150.000000 0.000000 0.000000 1.000000;
  152.                     EveCmd {Cone [expr {$tire(majorRadius) * .1}] [expr {$tire(majorRadius) * .1}] 360};
  153.  
  154.                 endShape
  155.                 startShape {spike3} ;
  156.                     EveCmd {Translate 0 $tire(majorRadius) 0};
  157.                     Rotate 90.000000 0.000000 0.000000 1.000000;
  158.                     EveCmd {Cone [expr {$tire(majorRadius) * .1}] [expr {$tire(majorRadius) * .1}] 360};
  159.  
  160.                 endShape
  161.                 startShape {spike1} ;
  162.                     EveCmd {Translate 0 $tire(majorRadius) 0};
  163.                     Rotate 30.000000 0.000000 0.000000 1.000000;
  164.                     EveCmd {Cone [expr {$tire(majorRadius) * .1}] [expr {$tire(majorRadius) * .1}] 360};
  165.  
  166.                 endShape
  167.                 startShape {spike0} ;
  168.                     EveCmd {Translate 0 $tire(majorRadius) 0};
  169.                     Rotate 0.000000 0.000000 0.000000 1.000000;
  170.                     EveCmd {Cone [expr {$tire(majorRadius) * .1}] [expr {$tire(majorRadius) * .1}] 360};
  171.  
  172.                 endShape
  173.                 startShape {spike2} ;
  174.                     EveCmd {Translate 0 $tire(majorRadius) 0};
  175.                     Rotate 60.000000 0.000000 0.000000 1.000000;
  176.                     EveCmd {Cone [expr {$tire(majorRadius) * .1}] [expr {$tire(majorRadius) * .1}] 360};
  177.  
  178.                 endShape
  179.                 startShape {spike4} ;
  180.                     EveCmd {Translate 0 $tire(majorRadius) 0};
  181.                     Rotate 120.000000 0.000000 0.000000 1.000000;
  182.                     EveCmd {Cone [expr {$tire(majorRadius) * .1}] [expr {$tire(majorRadius) * .1}] 360};
  183.  
  184.                 endShape
  185.                 startShape {spike6} ;
  186.                     EveCmd {Translate 0 $tire(majorRadius) 0};
  187.                     Rotate 180.000000 0.000000 0.000000 1.000000;
  188.                     EveCmd {Cone [expr {$tire(majorRadius) * .1}] [expr {$tire(majorRadius) * .1}] 360};
  189.  
  190.                 endShape
  191.                 startShape {spike8} ;
  192.                     EveCmd {Translate 0 $tire(majorRadius) 0};
  193.                     Rotate 240.000000 0.000000 0.000000 1.000000;
  194.                     EveCmd {Cone [expr {$tire(majorRadius) * .1}] [expr {$tire(majorRadius) * .1}] 360};
  195.  
  196.                 endShape
  197.                 startShape {spike10} ;
  198.                     EveCmd {Translate 0 $tire(majorRadius) 0};
  199.                     Rotate 300.000000 0.000000 0.000000 1.000000;
  200.                     EveCmd {Cone [expr {$tire(majorRadius) * .1}] [expr {$tire(majorRadius) * .1}] 360};
  201.  
  202.                 endShape
  203.  
  204.             endShape
  205.             startShape {Hubcap} ;
  206.                 Surface ECDentedMetalEffect ;
  207.                 EveCmd {Color $hubcap(color)};
  208.                 EveCmd {Scale $tire(xScale) $tire(yScale) $tire(zScale)};
  209.                 EveCmd {Scale $hubcap(xScale) $hubcap(yScale) $hubcap(zScale)};
  210.                 EveCmd {Translate $hubcap(xTranslate) $hubcap(yTranslate) $hubcap(zTranslate)};
  211.                 EveCmd {Rotate $hubcap(xRotate) 1 0 0 };
  212.                 EveCmd {Rotate $hubcap(yRotate) 0 1 0 };
  213.                 EveCmd {Rotate $hubcap(zRotate) 0 0 1 };
  214.                 EveCmd {Sphere $hubcap(radius) $hubcap(zMin) $hubcap(zMax) $hubcap(thetaMax)};
  215.  
  216.             endShape
  217.  
  218.         endShape
  219.  
  220.     endShape
  221.  
  222. endShape
  223.